home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / jock.zip / TOTDEM11.ZIP / DEMST2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  1KB  |  41 lines
  1. program DemoStringTwo;
  2. {demST2 - more string functions}
  3.  
  4. Uses DOS, CRT,
  5.      totSTR;
  6.  
  7. Const
  8.     MyInt:integer = 4000;
  9.     MyReal:real = 89.99;
  10.     MyIntStr = '8000';
  11.     MyRealStr = '89.95';
  12.     MyHexStr = 'FFFF';
  13.  
  14. begin
  15.    ClrScr;
  16.    writeln('Test number - ',MyInt);
  17.    writeln;
  18.    writeln('IntToStr:    ',IntToStr(MyInt));
  19.    writeln('IntToHEXStr: ',IntToHEXStr(MyInt));
  20.    writeln;
  21.    writeln;
  22.    writeln('Test number - ',MyReal:5:2);
  23.    writeln;
  24.    writeln('RealToStr: ',RealToStr(MyReal,5));
  25.    writeln('RealToStr: ',RealToStr(MyReal,1));
  26.    writeln('RealToStr: ',RealToStr(MyReal,FLOATING));
  27.    writeln('RealToSciStr: ',RealToSciStr(MyReal,FLOATING));
  28.    writeln;
  29.    writeln;
  30.    writeln('Test Strings: ',MyIntStr,' ',MyRealStr,' ',MyHEXStr);
  31.    writeln;
  32.    writeln('ValidInt: ',ValidInt(MyIntStr));
  33.    writeln('ValidInt: ',ValidInt(MyHEXStr));
  34.    writeln('ValidInt: ',ValidInt(MyRealStr));
  35.    writeln('ValidReal: ',ValidReal(MyIntStr));
  36.    writeln('ValidReal: ',ValidReal(MyRealStr));
  37.    GotoXY(1,23);
  38.  
  39. end.
  40.  
  41.